home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO002.dsk / STARTUP.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  27 lines
  1. 100  REM 'STARTUP' FOR FREEWRITER
  2. 110  REM WRITTEN BY KEITH FALKNER
  3. 120 D$ =  CHR$(4)
  4. 130  NORMAL : PRINT  CHR$(21);: TEXT : HOME 
  5. 140  PRINT D$"PREFIX/"
  6. 150  PRINT D$;"BLOAD LOGIC.PIC,A$2000"
  7. 160  POKE 49234,0: POKE 49239,0: POKE 49232,0
  8. 170  FOR I = 1 TO 2800: NEXT 
  9. 180  READ MA: DIM MP$(MA),MA$(MA)
  10. 190  FOR I = 1 TO MA: READ MP$(I),MA$(I): NEXT 
  11. 200  TEXT : VTAB 1: PRINT "  FREEWRITER Program disk, from LOGIC."
  12. 210  FOR I = 1 TO MA: VTAB I +I +3
  13. 220  PRINT "  "I"  "MA$(I)".": NEXT 
  14. 230  VTAB 22: PRINT "     <-- Action (1-"MA").";
  15. 240  HTAB 3: GET Z$: IF Z$ =  CHR$(27) GOTO 280
  16. 250 Z =  VAL(Z$): IF Z <1  OR Z >MA GOTO 240
  17. 260  PRINT Z: PRINT "     loading "MP$(Z)" ... "
  18. 270  PRINT D$"-"MP$(Z)
  19. 280  PRINT : PRINT : HOME : END 
  20. 290  DATA 7
  21. 300  DATA INSTRUCTIONS,"How to use FREEWRITER"
  22. 310  DATA PRODOS,"Create or edit a document"
  23. 320  DATA PRINTER,"Print a document"
  24. 330  DATA SURVEY,"Survey and plot vectors"
  25. 340  DATA SKETCH,"Hi-res sketching program."
  26. 350  DATA CALCULATOR,"Reverse Polish calculator"
  27. 360  DATA THREE.DIM,"Three-dimensional plotting"